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— Version. Mesa Edited by Wick on October 8, 1977 6:48 PM 

DIRECTORY 

AUoFileDefs: FROM "altof iledefs", 
BcdDefs: FROM "bcddefs". 
DirectoryDefs: FROM "directorydefs" , 
ImageDefs: FROM "imagedefs", 
lODefs: FROM "iodefs". 
SegmentDefs: FROM "segmentdefs", 
StreamDefs: FROM "streamdefs" , 
StringDefs: FROM "StringOefs" , 
TimeDefs: FROM "timedefs"; 

DEFINITIONS FROM lOOefs. StreamDefs. StringDefs; 

Version: PROGRAM 

IMPORTS DirectoryDefs, lODefs, SegmentDefs, StreamDefs, StringDefs, TimeDefs 

SHARES ImageDefs * 

BEGIN 

FP: TYPE = AUoFileDefs.FP; 

BcdBase: TYPE = POINTER TO BcdDefs. BCD; 

UnpackedTime: TYPE - TimeDefs .UnpackedTime; 

BinaryVersion: PROCEDURE [info: POINTER TO Filelnfo] = 
BEGIN OPEN SegmentDefs; 
bed: BcdBase; 
seg: Fi leSegmentHandle ♦• 

NewFi1eSegment[InsertFi1e[0info.fp, Read], 1,1, Read]; 
Swapln[seg]; bed ♦- Fi leSegmentAddress[seg]; 
SELECT bcd.versionident FROM 
BcdDefs. VersionIO => 
BEGIN 

PrintVer si on [bed. version] ; 
WriteChar[CR]: 

IF info. tyne-object AND verbose THEN 
BEGIN 

IF bcd.nPages > 1 THEN 
BEGIN 

Unlock[seg]: 

MoveFneSegment[seg ,1, bcd.nPages]; 
Swapln[seg]; 

bed *• Fi 1eSegmentAddress[seg] ; 
END; 
PrintFneVersions[bed] ; 
END; 
END; 
ImageDefs .VersionID => 
BEGIN 

PrintVer si on [bed. version] ; 
WriteChar[CR]; 
END; 
ENDCASE => 
BEGIN 

Wr i teString[" bad version ID "]; 
Wr i teOecimal [bed. versioni dent]; 
WriteChar[CR]; 
END; 
Unloek[seg] ; 
DeleteFi leSegment[seg] ; 
RETURN 
END: 



SourceDate: PROCEDURE [info: POINTCR TO Filelnfo] = 
BEGIN 

date: T imeOef s . UnpackedT ime ^ [0. , 0, . 0, , FALSE] ; 
index: CARDINAL[0. .12) ; 
stream: StreamHandle ; 
token: STRING ♦- [40]; 
found: BOOIFAN; 
stream ♦- CreateBy teStream[ 

SegmentDefs. TnsertrJle[9info.fp,Read],Read]; 
UNTIL Getlndex[stream].page j^ DO 

TNABLE" Streamfrror => EXIT; 

Next I tem[s tream, token] ; 
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[found, index] ^ IsMonth[token]; 
IF found THEN 
BEGIN 

Nextltem[stream, token] ; 
IF IsNumber[token] THEN 
BEGIN 

date. month ♦- index; 
date. day ♦■ StringToDecimal[token] ; 
Nextltem[ stream, token]; 
IF IsNumber[token] THEN 

date. year ♦• StringToDecimal[token]; 
NextItem[stream,token]; 
IF IsNumber[token] THEN 
BEGIN 

date, hour ♦- StringToDecima1[token] ; 
Nex t I tem[ stream, token]; 
IF IsNumber[token] THEN 

date. minute ♦■ StringToDecimal [token]; 
Nex t I tem[ stream, token]; 
IF Equ ival en tString[ token. "PM"] 
AND date. hour < 12 THEN 

date. hour ^ date.hour+12; 
END; 
WriteChar[' ]; PrintDate[date] ; 
WriteChar[CR]: EXIT; 
END; 
END; 
ENDLOOP; 
stream. destroy[ St ream]; 
RETURN 
END; 

Months: ARRAY [0..12) OF STRING = [ 

"January" , "February" , "March" . "Apri 1 " , "May" , "June" , "July" , 
"August" , "September" , "October" ."November" , "December"] ; 

IsMonth: PROCEDURE [candidate: STRING] RETURNS [BOOLEAN .CARDINAL] = 
BEGIN 

i: CARDINAL[0..12); 
FOR i IN [0. .12) DO 

IF Equiva1entString[candidate,Months[i]] THEN RETURN[TRUE . i] ; 
ENDLOOP; 
RETURN[FALSE.O] 
END; 

IsNumber: PROCEDURE [s: STRING] RETURNS [BOOLEAN] = 
BEGIN 

i: CARDINAL; 

FOR i IN [0. .s. length) DO 
SELECT s[i] FROM 

IN ['0. . '9] => NULL; 
ENDCASE => RETURN[FALSE]; 
ENDLOOP; 
RETURN[TRUE] 
END; 

Nextltem: PROCEDURE [stream: StreamHandle , token: STRING] = 
BEGIN 

c: CHARACTER; 
token . length ♦- 0; 
WHILE -stream. endof[stream] DO 
c ♦- s tream. get [stream] ; 
SELECT c FROM 

IN [*a..'z], IN ['A..'Z], IN ['0..'9] => AppendChar[ token , c] ; 
ENDCASE => IF token, length ^ TflEN EXIT; 
ENDLOOP; 
RETURN 
END; 

PrintFileVersions: PROCEDURE [bed: BcdBase] = 
BEGIN OPTM BcdDefs; 
1 ine: STRING ^ [40]; 
r i lename: SubStringDescriptor; 



fti 
ftb 
stb 



FTIndex ; 

CARDINAi = I OOPHOir[bc(i+bcd.f tOffset]; 

STRING - lOOPflOLF[bcd+bcd.ssOrfset]; 
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FOR fti ^ FIRST[FTIndex], f ti+SIZE[FTRecord] 
UNTIL fti = bcd.ftLimit 00 

OPEN f: ftb + fti; 

filename ^ SubStringDescriptor[ 

stb, f .name.of fset, f. name. length]; 

line. length ♦• 0; WriteChar[' ]; 

Print\/ersion[f. version]; WriteChar[' ]; 

AppendSubString[l ine.Qf ilename]; 

WriteLine[line]; 

ENDLOOP; 
RETURN 
END; 

PrintVersion: PROCEDURE [stamp: BcdOefs .VersionStamp] 
BEGIN 

WriteChar[IF stamp. zapped THEN '♦ ELSE ' ]; 
PrintDate[TimeDefs.UnpackDT[ stamp. time]]; 
WriteChar[' ]; 
Wri teOctal [stamp. net]; 
WriteChar['//]; 
WriteOctal [stamp. host]; 
WriteChar['ji«]; 
END; 

PrintDate: PROCEDURE [dt: UnpackedTime] = 
BEGIN 

tmp: STRING ♦- [40]; 
TimeDefs. AppendDayTime[tmp, dt]; 
WriteString[tmp]; 
END; 



— command line stuff 

NextFile: PROCEDURE[token: STRING] RETURNS [BOOLEAN]; 

ReadFromCmdFile: PROCEDURE[token: STRING] RETURNS [BOOLEAN] = 
BEGIN 

RETURN[ReadCmdStream[cmdstr earn, token]] 
END; 

ReadFromKeyboard: PROCEDURE[ token: STRING] RETURNS [BOOLEAN] 
BEGIN 

WriteString["File: "]; 
Read ID[ token]; WriteChar[CR]; 
RETURN[token.1ength#a]; 
END; 

ReadCmdStream: PROCEDURE [ 

stream: StreamHandle. token: STRING] 
RETURNS [BOOLEAN] = 
BEGIN 

c: CHARACTER; 
token . length <- 0; 
WHILE -stream. endof[stream] DO 
c «- stream. get[stream] ; 
SELECT c FROM 

SP => IF token. length # THEN EXIT; 
CR => EXIT; 

ENDCASE => AppendChar[token,c]; 
ENDIOOP; 
RrTURN[token.1ength/<0]; 
END; 

cmdstream: Streamflandle : 

SetCommandlnput: PROCEDURE = 
BCGTN 

cmdstream ♦- NewBy teStream["Com.Cm" , Read] ; 
[] ^ ReadCmdS Lream[cmdsLream, name]; 
Str ipSwi tches[name] ; -- mesa. Image 
[] *- ReadCmdStream[cmdstream, name]; 
IF Interactive ♦- ciiuis tream. endor[cmdstream] THEN 

BEGIN 

cmds tream. des troy[ cmdstream] ; 

NextFile «- ReadFromKeyboard; 
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END 
ELSE NextFile ♦• ReadFromCrndFile; 
RETURN 
END; 

StripSwitches: PROCEDURE [token: STRING] = 
BEGIN 

i. J: CARDINAL; 
option: BOOLEAN ♦• TRUE; 
FOR i IN [0. .token. length) DO 
IF tokenCi] = '/ THEN 
BEGIN 

FOR j IN (i. .token. length) DO 
SELECT token[j] FROM 

'-, '- => option <- -option; 

•p, 'P *> BEGIN pause ^ option; option ♦• TRUE END; 
•v. 'V *> BEGIN verbose ^ option; option ♦- TRUE END; 
ENDCASE; 
ENOLOOP; 
token. length *- i; 
END; 
ENDLOOP; 
RETURN 
END; 

StripExtension: PROCEDURE [name, ext: STRING] - 
BEGIN 

i, j: CARDINAL; 

IF ext # NIL THEN ext. length ♦• 0; 
i ^ (j «- name. length) - 1; 
IF name[i]='. THEN i ^ (j ♦- i) - 1; 
FOR i ♦- i. i-1 UNTIL name[i] = ' . DO 

IF nam6[i] = ' I THEN j ♦- i ; 

IF i = THEN RETURN; 

ENDLOOP; 
name . length ♦• i ; 
IF ext # NIL -^HEN 
UNTIL (i*-i+l)='j DO 

AppendChar[ext , name[i]] ; 

ENDLOOP; 
RETURN 
END; 

GetFiles: PROCEDURE [fp: POINTER TO FP. fn: STRING] RETURNS [BOOLEAN] 
BEGIN 

i: FileType; 
ext: STRING *■ [40]; 
StripExt9nsion[fn,ext]; 
IF EquivalentString[fn , name] THEN 
FOR i IN FileType 00 

IF EquivalentString[ext, f iles[i].ext] THEN 
BEGIN files[i].fp ♦• fpt; 
files[i]. found ♦- TRUE; EXIT; 
END; 
ENDLOOP; 
RETURN [FALSE] 
END; 



-- main program 

FileType: TYPE = {source, config, object, symbols, code, image}; 

Filelnfo: TYPE = RECORD [ 
type: FiloType, 
found: BOOLEAN, 
fp: FP. 
ext: STRING, 
proc: PROCEDURr[POINTER TO Filelnfo]]; 

files: ARRAY FileType OF Filelnfo ♦- [ 
rneInfo[source, , ,"mesa".SourceDate], 
F i leInfo[conf ig , , , "conf ig" . SourceOate] , 
FileInfo[object, , ,"bcd",B i nary Vers Ion] , 
r i leInfo[ symbols , , , "symbols" , B i nary Vers ion] , 
rileInfo[code. , ,"code",B i nary Vers ion] , 
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FileInfo[ image, . , "image" .BinaryVers ion]]; 

i: FileType; 

name: STRING ^ [100]; 

interactive: BOOLEAN; 

pause, pauseDfU: BOOLEAN ♦• FALSE; 

verbose, verboseDflt: BOOLEAN ^ FALSE; 

SetCommandInput[] ; 
pauseDflt ^ pause; 
verboseDflt ♦• verbose; 
WriteChar[CR]: 
WHILE NextFne[name] DO 
pause ♦• pauseDflt; 
verbose ♦• verboseDflt; 
St ripSw itches [name]: 
IF name. length « THEN 
BEGIN 

pauseDflt ♦- pause; 
verboseDflt ♦• verbose; 
IF interactive THEN WriteChar[CR]; 
END 
ELSE 
BEGIN 

FOR i IN FileType DO fi1es[i] . found ♦■ FALSE ENDLOOP; 
StripExtension[name, NIL]; 
DirectoryDefs.EnumerateOirectory[GetFiles] ; 
IF -interactive THEN WriteLine[name]; 
FOR i IN FileType DO 
IF files[i]. found THEN 
BEGIN 

WriteChar[' ]; 
WriteString[files[i].ext]; 
WriteChar[' :]; 
files[i].proc[0files[i]]; 
END; 
ENDLOOP; 
WriteChariCR]; 

IF pause THEN [] ♦■ ReadChar[]; 
END; 
ENDLOOP; 
ImageDef s.StopMesa[] ; 

END. 



